Chip 2004 December/2004-12 CHIP.iso/Internet/The Bat! Professional 3.01/thebat_professional.msi/Data1.cab/thebat.exe/0/RCDATA/TACTIONSETUP/TACTIONSETUP.txt

Text File | 2004-10-12 | 31KB | 1,292 lines

object ActionSetup: TActionSetup
  Left = 281
  Top = 164
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  BorderWidth = 4
  Caption = 'ActionSetup'
  ClientHeight = 415
  ClientWidth = 396
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TPageControl
    Left = 0
    Top = 0
    Width = 396
    Height = 377
    ActivePage = tsTemplate
    Align = alTop
    TabOrder = 0
    TabStop = False
    object tsFolder: TTabSheet
      Caption = 'Folder'
      TabVisible = False
      object lFolders: TLabel
        Left = 8
        Top = 88
        Width = 37
        Height = 13
        Caption = '&Folders:'
        FocusControl = mlFolders
      end
      object lFolder: TLabel
        Left = 8
        Top = 16
        Width = 85
        Height = 13
        Caption = '&Destination folder:'
        FocusControl = eFolder
      end
      object mlFolders: TMLVGrid
        Left = 8
        Top = 104
        Width = 305
        Height = 201
        ColCount = 1
        DefaultRowHeight = 16
        DefaultDrawing = False
        FixedCols = 0
        RowCount = 1
        FixedRows = 0
        Options = [goThumbTracking]
        TabOrder = 2
        AltDrag = True
        AutoColResize = True
        AutoSearch = True
        MultiSelect = False
        OnFocusItem = mlFoldersFocusItem
        ImmediateSelect = False
        OnDrawItemImage = mlFoldersDrawItemImage
      end
      object eFolder: TEdit
        Left = 8
        Top = 32
        Width = 305
        Height = 21
        TabOrder = 0
      end
      object cbFolderAutoCreate: TCheckBox
        Left = 8
        Top = 56
        Width = 305
        Height = 17
        Caption = '&Automatically create if necessary'
        TabOrder = 1
      end
      object cbCopyRead: TCheckBox
        Left = 8
        Top = 320
        Width = 305
        Height = 17
        Caption = '&Mark the copy as read'
        TabOrder = 3
      end
    end
    object tsAddAddr: TTabSheet
      Caption = 'Add Address'
      TabVisible = False
      object lAddGroups: TLabel
        Left = 8
        Top = 136
        Width = 149
        Height = 13
        Caption = 'Add addresses to these groups:'
      end
      object gbAddAddr: TGroupBox
        Left = 8
        Top = 16
        Width = 345
        Height = 105
        Caption = 'Header fields to add addresses from'
        TabOrder = 0
        object cbAddFrom: TCheckBox
          Left = 16
          Top = 24
          Width = 145
          Height = 17
          Caption = '&From'
          TabOrder = 0
        end
        object cbAddReplyTo: TCheckBox
          Left = 16
          Top = 48
          Width = 145
          Height = 17
          Caption = '&Reply-To'
          TabOrder = 1
        end
        object cbAddTo: TCheckBox
          Left = 176
          Top = 24
          Width = 161
          Height = 17
          Caption = '&To'
          TabOrder = 2
        end
        object cbAddCC: TCheckBox
          Left = 176
          Top = 48
          Width = 161
          Height = 17
          Caption = '&Carbon Copy (CC)'
          TabOrder = 3
        end
        object cbAddBCC: TCheckBox
          Left = 176
          Top = 72
          Width = 161
          Height = 17
          Caption = '&Blind Carbon Copy (BCC)'
          TabOrder = 4
        end
      end
      object eAddGroups: TEdit
        Left = 8
        Top = 152
        Width = 305
        Height = 21
        TabOrder = 1
      end
      object bAddGroups: TButton
        Left = 320
        Top = 150
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 2
        OnClick = bAddGroupsClick
      end
    end
    object tsDelAddr: TTabSheet
      Caption = 'Delete Address'
      TabVisible = False
      object lDelGrpAdd: TLabel
        Left = 58
        Top = 242
        Width = 3
        Height = 13
        Enabled = False
      end
      object eDelGroups: TEdit
        Left = 40
        Top = 184
        Width = 273
        Height = 21
        Enabled = False
        TabOrder = 3
      end
      object gbDelAddr: TGroupBox
        Left = 8
        Top = 16
        Width = 345
        Height = 105
        Caption = 'Addresses are taken from'
        TabOrder = 0
        object cbDelFrom: TCheckBox
          Left = 16
          Top = 24
          Width = 145
          Height = 17
          Caption = '&From'
          TabOrder = 0
        end
        object cbDelReplyTo: TCheckBox
          Left = 16
          Top = 48
          Width = 145
          Height = 17
          Caption = '&Reply-To'
          TabOrder = 1
        end
        object cbDelTo: TCheckBox
          Left = 176
          Top = 24
          Width = 161
          Height = 17
          Caption = '&To'
          TabOrder = 2
        end
        object cbDelCC: TCheckBox
          Left = 176
          Top = 48
          Width = 161
          Height = 17
          Caption = '&Carbon Copy (CC)'
          TabOrder = 3
        end
        object cbDelBCC: TCheckBox
          Left = 176
          Top = 72
          Width = 161
          Height = 17
          Caption = '&Blind Carbon Copy (BCC)'
          TabOrder = 4
        end
      end
      object bDelGroups: TButton
        Left = 320
        Top = 182
        Width = 27
        Height = 25
        Caption = '...'
        Enabled = False
        TabOrder = 4
        OnClick = bAddGroupsClick
      end
      object cbDelCompletely: TRadioButton
        Left = 16
        Top = 136
        Width = 321
        Height = 17
        Caption = 'Delete address(es) completely'
        TabOrder = 1
        OnClick = cbDelCompletelyClick
      end
      object cbDelFromGroups: TRadioButton
        Left = 16
        Top = 160
        Width = 329
        Height = 17
        Caption = 'Only delete from these groups:'
        TabOrder = 2
        OnClick = cbDelCompletelyClick
      end
      object cbDelGroupsCompletely: TCheckBox
        Left = 40
        Top = 216
        Width = 313
        Height = 17
        Caption = 'Delete completely if the address is removed from all groups'
        Enabled = False
        TabOrder = 5
      end
    end
    object tsTemplate: TTabSheet
      Caption = 'Template'
      TabVisible = False
      object pnTplHolder: TPanel
        Left = 8
        Top = 16
        Width = 369
        Height = 305
        BevelOuter = bvNone
        TabOrder = 0
        object TplBook: TNotebook
          Left = 0
          Top = 0
          Width = 369
          Height = 117
          Align = alTop
          TabOrder = 0
          object TPage
            Left = 0
            Top = 0
            Caption = 'Default'
            object lNewAddr: TLabel
              Left = 0
              Top = 0
              Width = 126
              Height = 13
              Caption = '&Create a new message for:'
              FocusControl = eNewAddr
            end
            object bNewAddr: TButton
              Tag = 1
              Left = 336
              Top = 14
              Width = 27
              Height = 25
              Caption = '...'
              TabOrder = 0
              OnClick = bFwdAddrClick
            end
            object eNewAddr: TEdit
              Tag = 1
              Left = 0
              Top = 16
              Width = 329
              Height = 21
              TabOrder = 1
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Forward'
            object lFwdAddr: TLabel
              Left = 0
              Top = 0
              Width = 98
              Height = 13
              Caption = '&Forward message to:'
              FocusControl = eFwdAddr
            end
            object eFwdAddr: TEdit
              Left = 0
              Top = 16
              Width = 329
              Height = 21
              TabOrder = 0
            end
            object bFwdAddr: TButton
              Left = 336
              Top = 14
              Width = 27
              Height = 25
              Caption = '...'
              TabOrder = 1
              OnClick = bFwdAddrClick
            end
            object cbFwdHeaders: TCheckBox
              Left = 0
              Top = 40
              Width = 329
              Height = 17
              Caption = '&Include message (RFC 822) headers'
              TabOrder = 2
            end
            object cbFwdMIME: TCheckBox
              Left = 0
              Top = 80
              Width = 329
              Height = 17
              Caption = '&Always use MIME envelope  for the original message'
              TabOrder = 4
            end
            object cbFwdNoAttach: TCheckBox
              Left = 0
              Top = 60
              Width = 329
              Height = 17
              Caption = '&Do not include attachments'
              TabOrder = 3
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'New message'
            object lCreateMsg: TLabel
              Left = 0
              Top = 0
              Width = 139
              Height = 13
              Caption = '&Create new message in folder'
              FocusControl = eNewMsgFolder
            end
            object bNewMsgAddr: TButton
              Left = 336
              Top = 14
              Width = 27
              Height = 25
              Caption = '...'
              TabOrder = 1
              OnClick = bNewMsgAddrClick
            end
            object cbNewMsgAutoCreate: TCheckBox
              Left = 0
              Top = 40
              Width = 361
              Height = 17
              Caption = '&Automatically create the destination folder if necessary'
              TabOrder = 2
            end
            object cbNewMsgStripHeader: TCheckBox
              Left = 0
              Top = 60
              Width = 361
              Height = 17
              Caption = '&Do not preserve header of the original message '
              TabOrder = 3
            end
            object cbNewMsgNoAttach: TCheckBox
              Left = 0
              Top = 80
              Width = 361
              Height = 17
              Caption = '&Strip the original message'#39's attachments'
              TabOrder = 4
            end
            object eNewMsgFolder: TEdit
              Left = 4
              Top = 16
              Width = 329
              Height = 21
              TabOrder = 0
            end
            object cbNewMsgRead: TCheckBox
              Left = 0
              Top = 100
              Width = 361
              Height = 17
              Caption = '&Mark the created message as read'
              TabOrder = 5
            end
          end
        end
        object pnTplEdit: TPanel
          Left = 0
          Top = 117
          Width = 369
          Height = 188
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object pnTplLabel: TPanel
            Left = 0
            Top = 0
            Width = 369
            Height = 25
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
            object lTemplate: TLabel
              Left = 0
              Top = 8
              Width = 47
              Height = 13
              Caption = '&Template:'
            end
          end
          object pnEdit: TPanel
            Left = 0
            Top = 25
            Width = 369
            Height = 163
            Align = alClient
            BevelOuter = bvLowered
            TabOrder = 1
            object eTemplate: TTextEditor
              Left = 1
              Top = 1
              Width = 367
              Height = 161
              BgColor = clBlack
              TextColor = clBlack
              SelColor = clBlack
              SelBgColor = clBlack
              QuoteColor = clBlack
              RefColor = clBlack
              Kludge1Color = clBlack
              Kludge2Color = clBlack
              Kludge3Color = clBlack
              ReadOnly = False
              FontCharset = 1
              TabOrder = 0
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Pitch = fpFixed
              Font.Style = []
              Align = alClient
              PopupMenu = mPop
            end
          end
        end
      end
    end
    object tsRedirect: TTabSheet
      Caption = 'Redirect'
      TabVisible = False
      object lRedirectAddr: TLabel
        Left = 16
        Top = 16
        Width = 100
        Height = 13
        Caption = '&Redirect message to:'
        FocusControl = eRedirectAddr
      end
      object eRedirectAddr: TEdit
        Tag = 2
        Left = 16
        Top = 32
        Width = 329
        Height = 21
        TabOrder = 0
      end
      object bRedirectAddr: TButton
        Tag = 2
        Left = 352
        Top = 30
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 1
        OnClick = bFwdAddrClick
      end
      object cbRedirectNoAttach: TCheckBox
        Left = 16
        Top = 64
        Width = 329
        Height = 17
        Caption = '&Do not include attachments '
        TabOrder = 2
      end
    end
    object tsExport: TTabSheet
      Caption = 'Export'
      TabVisible = False
      object lExportFile: TLabel
        Left = 16
        Top = 16
        Width = 106
        Height = 13
        Caption = '&Export message to file:'
        FocusControl = eExportFile
      end
      object eExportFile: TEdit
        Left = 16
        Top = 32
        Width = 289
        Height = 21
        TabOrder = 0
      end
      object bExportFile: TButton
        Left = 312
        Top = 30
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 1
        OnClick = bExportFileClick
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 64
        Width = 321
        Height = 129
        Caption = 'Export format'
        TabOrder = 2
        object cbExportText: TRadioButton
          Left = 8
          Top = 24
          Width = 209
          Height = 17
          Caption = '&Plain text'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = cbExportTextClick
        end
        object bExportTpl: TButton
          Left = 224
          Top = 20
          Width = 91
          Height = 25
          Caption = '&Template...'
          TabOrder = 1
          OnClick = bExportTplClick
        end
        object cbExportRFC: TRadioButton
          Tag = 1
          Left = 8
          Top = 72
          Width = 289
          Height = 17
          Caption = '&RFC 822 message (.MSG/.EML, plain text)'
          TabOrder = 3
          OnClick = cbExportTextClick
        end
        object cbExportUNIX: TRadioButton
          Left = 8
          Top = 96
          Width = 297
          Height = 17
          Caption = '&Unix mailbox (lines delimited by LF)'
          TabOrder = 4
          OnClick = cbExportTextClick
        end
        object cbExportHeaders: TCheckBox
          Left = 24
          Top = 46
          Width = 217
          Height = 17
          Caption = '&Include message headers'
          TabOrder = 2
        end
      end
      object cbExportExists: TRadioGroup
        Left = 16
        Top = 200
        Width = 321
        Height = 73
        Caption = 'When the destination file exists'
        Items.Strings = (
          'O&verwrite the existing file'
          '&Append to the existing file'
          '&Increment the file name')
        TabOrder = 3
        OnClick = cbExportExistsClick
      end
    end
    object tsExternal: TTabSheet
      Caption = 'External'
      TabVisible = False
      object lCmdLine: TLabel
        Left = 16
        Top = 16
        Width = 69
        Height = 13
        Caption = '&Command line:'
        FocusControl = eCmdLine
      end
      object lRunImport: TLabel
        Left = 50
        Top = 152
        Width = 142
        Height = 13
        Caption = 'if the process finishes normally'
        Enabled = False
      end
      object lRunImportFolder: TLabel
        Left = 48
        Top = 176
        Width = 85
        Height = 13
        Caption = '&Destination folder:'
        Enabled = False
        FocusControl = eRunImportFolder
      end
      object lExternalNote: TLabel
        Left = 16
        Top = 249
        Width = 329
        Height = 56
        AutoSize = False
        Caption =
          '(Use %1 parameter to specify the file name containing the messag' +
          'e in RFC-822 format. It is also possible to use template macros ' +
          'like %FROM,%TOLIST etc. to pass message properties as parameters' +
          ')'
        WordWrap = True
      end
      object eCmdLine: TEdit
        Left = 16
        Top = 32
        Width = 297
        Height = 21
        TabOrder = 0
      end
      object bExternal: TButton
        Left = 320
        Top = 30
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 1
        OnClick = bExternalClick
      end
      object cbRunHidden: TCheckBox
        Left = 16
        Top = 64
        Width = 329
        Height = 17
        Caption = '&Hide the process'
        TabOrder = 2
      end
      object cbRunWait: TCheckBox
        Left = 16
        Top = 112
        Width = 329
        Height = 17
        Caption = '&Wait for completion'
        TabOrder = 3
        OnClick = cbRunWaitClick
      end
      object cbRunStdIn: TCheckBox
        Left = 16
        Top = 88
        Width = 329
        Height = 17
        Caption = '&Pass the message as the input stream (stdin)'
        TabOrder = 4
      end
      object cbRunImport: TCheckBox
        Left = 32
        Top = 136
        Width = 313
        Height = 17
        Caption = '&Import the process'#39' stdout as an RFC 822 message'
        Enabled = False
        TabOrder = 5
        OnClick = cbRunWaitClick
      end
      object eRunImportFolder: TEdit
        Tag = 1
        Left = 48
        Top = 192
        Width = 265
        Height = 21
        Enabled = False
        TabOrder = 6
      end
      object bRunImportFolder: TButton
        Tag = 1
        Left = 320
        Top = 190
        Width = 27
        Height = 25
        Caption = '...'
        Enabled = False
        TabOrder = 7
        OnClick = bNewMsgAddrClick
      end
      object cbRunAutoFolder: TCheckBox
        Left = 48
        Top = 216
        Width = 297
        Height = 17
        Caption = '&Automatically create if necessary'
        Enabled = False
        TabOrder = 8
      end
    end
    object tsExtract: TTabSheet
      Caption = 'Extract'
      TabVisible = False
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 109
        Height = 13
        Caption = '&Extract attachments to:'
        FocusControl = eExtractDir
      end
      object eExtractDir: TEdit
        Left = 16
        Top = 32
        Width = 265
        Height = 21
        TabOrder = 0
      end
      object bExtractDir: TButton
        Left = 288
        Top = 30
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 1
        OnClick = bExtractDirClick
      end
      object rgExtractExists: TRadioGroup
        Left = 16
        Top = 64
        Width = 297
        Height = 89
        Caption = 'If a file with the same name exists on destination path'
        Items.Strings = (
          '&Increment file name'
          'O&verwrite the existing file'
          '&Do not extract the new file (ignore)')
        TabOrder = 2
      end
    end
    object tsSound: TTabSheet
      Caption = 'Sound'
      TabVisible = False
      object rbWAV: TRadioButton
        Left = 16
        Top = 16
        Width = 265
        Height = 17
        Caption = 'Play this &WAV file:'
        TabOrder = 0
        OnClick = rbWAVClick
      end
      object eSound: TEdit
        Left = 32
        Top = 40
        Width = 223
        Height = 21
        TabOrder = 1
      end
      object rbSysSound: TRadioButton
        Left = 16
        Top = 72
        Width = 265
        Height = 17
        Caption = 'Play this &System Sound:'
        TabOrder = 3
        OnClick = rbSysSoundClick
      end
      object cbSysSound: TComboBox
        Left = 32
        Top = 88
        Width = 257
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 4
        Items.Strings = (
          'Beep using PC Speaker'
          'Default sound'
          'Exclamation sound'
          'Warning sound'
          'Asterisk sound'
          'Question sound')
      end
      object cbSoundTime: TCheckBox
        Left = 16
        Top = 128
        Width = 265
        Height = 17
        Caption = '&Enable sound only within this time interval:'
        TabOrder = 5
        OnClick = cbSoundTimeClick
      end
      object eSoundTime: TTimeIntervalEdit
        Left = 36
        Top = 152
        Width = 121
        Height = 21
        EditMask = '##:##-##:##;1;0'
        MaxLength = 11
        TabOrder = 6
        Text = '  :  -  :  '
      end
      object bSound: TButton
        Left = 264
        Top = 38
        Width = 27
        Height = 25
        Caption = '...'
        TabOrder = 2
        OnClick = bSoundClick
      end
      object cbTestSound: TButton
        Left = 16
        Top = 192
        Width = 273
        Height = 25
        Caption = '&Test sound now!'
        TabOrder = 7
        OnClick = cbTestSoundClick
      end
    end
    object tsColour: TTabSheet
      Caption = 'tsColour'
      ImageIndex = 9
      TabVisible = False
      object lColour: TLabel
        Left = 8
        Top = 8
        Width = 369
        Height = 13
        AutoSize = False
        Caption = 'Select colour group:'
      end
      object cobColour: TComboBox
        Left = 8
        Top = 24
        Width = 373
        Height = 21
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 0
      end
    end
    object tsPriority: TTabSheet
      Caption = 'tsPriority'
      ImageIndex = 10
      TabVisible = False
      object rgPriority: TRadioGroup
        Left = 8
        Top = 8
        Width = 373
        Height = 97
        Caption = 'Priority:'
        Items.Strings = (
          'Low'
          'Normal'
          'High')
        TabOrder = 0
      end
    end
    object tsUserParam: TTabSheet
      Caption = 'tsUserParam'
      ImageIndex = 11
      TabVisible = False
      object lParamName: TLabel
        Left = 8
        Top = 8
        Width = 80
        Height = 13
        Caption = 'Parameter &name:'
        FocusControl = eParam
      end
      object lParamValue: TLabel
        Left = 8
        Top = 52
        Width = 80
        Height = 13
        Caption = 'Parameter &value:'
        FocusControl = eValue
      end
      object eParam: TEdit
        Left = 8
        Top = 28
        Width = 369
        Height = 21
        TabOrder = 0
      end
      object eValue: TEdit
        Left = 8
        Top = 68
        Width = 369
        Height = 21
        TabOrder = 1
      end
    end
  end
  object pnButtonHolder: TPanel
    Left = 0
    Top = 377
    Width = 396
    Height = 38
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pnButtons: TPanel
      Left = 72
      Top = 0
      Width = 324
      Height = 38
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object bOK: TButton
        Left = 32
        Top = 8
        Width = 91
        Height = 25
        Caption = '&OK'
        Default = True
        ModalResult = 1
        TabOrder = 0
      end
      object bCancel: TButton
        Left = 136
        Top = 8
        Width = 89
        Height = 25
        Cancel = True
        Caption = 'Cancel'
        ModalResult = 2
        TabOrder = 1
      end
      object bHelp: TButton
        Left = 234
        Top = 8
        Width = 89
        Height = 25
        Caption = 'Help'
        Enabled = False
        TabOrder = 2
      end
    end
    object btnMacros: TButton
      Left = 0
      Top = 8
      Width = 91
      Height = 25
      Caption = '&Macros...'
      TabOrder = 1
      Visible = False
      OnClick = btnMacrosClick
    end
  end
  object mPop: TPopupMenu
    Left = 136
    Top = 320
    object mmText: TMenuItem
      Caption = '&Text'
    end
    object mmSender: TMenuItem
      Caption = '&Sender info'
    end
    object mmRece: TMenuItem
      Caption = '&Recipient info'
    end
    object mmDef: TMenuItem
      Caption = '&Pre-defined fields'
    end
    object mmMisc: TMenuItem
      Caption = '&Miscellaneous'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mtAttachFile: TMenuItem
      Caption = '&Attach a file...'
      ShortCut = 32801
      OnClick = mtAttachFileClick
    end
    object mtInclude: TMenuItem
      Tag = 1
      Caption = '&Include template file...'
      ShortCut = 32813
      OnClick = mtAttachFileClick
    end
    object mtPut: TMenuItem
      Tag = 2
      Caption = 'P&ut text file...'
      OnClick = mtAttachFileClick
    end
    object mtfCookie: TMenuItem
      Tag = 3
      Caption = '&Cookie from a file...'
      OnClick = mtAttachFileClick
    end
    object mtLanguage: TMenuItem
      Caption = '&Language'
      Visible = False
      object mtlAmericanEnglish: TMenuItem
        Caption = 'American English'
        Checked = True
        GroupIndex = 10
      end
      object BritishEnglish1: TMenuItem
        Tag = 1
        Caption = 'British English'
        GroupIndex = 10
      end
      object Catalan1: TMenuItem
        Tag = 2
        Caption = 'Catalan'
        GroupIndex = 10
      end
      object Czech1: TMenuItem
        Tag = 3
        Caption = 'Czech'
        GroupIndex = 10
      end
      object Danish1: TMenuItem
        Tag = 4
        Caption = 'Danish'
        GroupIndex = 10
      end
      object Dutch1: TMenuItem
        Tag = 5
        Caption = 'Dutch'
        GroupIndex = 10
      end
      object Finnish1: TMenuItem
        Tag = 6
        Caption = 'Finnish'
        GroupIndex = 10
      end
      object French1: TMenuItem
        Tag = 7
        Caption = 'French'
        GroupIndex = 10
      end
      object German1: TMenuItem
        Tag = 8
        Caption = 'German'
        GroupIndex = 10
      end
      object Hungarian1: TMenuItem
        Tag = 9
        Caption = 'Hungarian'
        GroupIndex = 10
      end
      object Italian1: TMenuItem
        Tag = 10
        Caption = 'Italian'
        GroupIndex = 10
      end
      object NorwegianBokmal1: TMenuItem
        Tag = 11
        Caption = 'Norwegian (Bokmal)'
        GroupIndex = 10
      end
      object NorwegianNynorsk1: TMenuItem
        Tag = 12
        Caption = 'Norwegian (Nynorsk)'
        GroupIndex = 10
      end
      object Polish1: TMenuItem
        Tag = 13
        Caption = 'Polish'
        GroupIndex = 10
      end
      object PortugueseBrazilian1: TMenuItem
        Tag = 14
        Caption = 'Portuguese (Brazilian)'
        GroupIndex = 10
      end
      object PortugueseIberian1: TMenuItem
        Tag = 15
        Caption = 'Portuguese (Iberian)'
        GroupIndex = 10
      end
      object Russian1: TMenuItem
        Tag = 16
        Caption = 'Russian'
        GroupIndex = 10
      end
      object Spanish1: TMenuItem
        Tag = 17
        Caption = 'Spanish'
        GroupIndex = 10
      end
      object Swedish1: TMenuItem
        Tag = 18
        Caption = 'Swedish'
        GroupIndex = 10
      end
      object N2: TMenuItem
        Tag = -1
        Caption = '-'
        GroupIndex = 10
      end
      object AmericanEnglish2: TMenuItem
        Tag = 19
        Caption = 'American English'
        GroupIndex = 10
      end
      object AustralianEnglish1: TMenuItem
        Tag = 20
        Caption = 'Australian English'
        GroupIndex = 10
      end
      object BritishEnglish2: TMenuItem
        Tag = 21
        Caption = 'British English'
        GroupIndex = 10
      end
      object Catalan2: TMenuItem
        Tag = 22
        Caption = 'Catalan'
        GroupIndex = 10
      end
      object Czech2: TMenuItem
        Tag = 23
        Caption = 'Czech'
        GroupIndex = 10
      end
      object Danish2: TMenuItem
        Tag = 24
        Caption = 'Danish'
        GroupIndex = 10
      end
      object Dutch2: TMenuItem
        Tag = 25
        Caption = 'Dutch'
        GroupIndex = 10
      end
      object Finnish2: TMenuItem
        Tag = 26
        Caption = 'Finnish'
        GroupIndex = 10
      end
      object French2: TMenuItem
        Tag = 27
        Caption = 'French'
        GroupIndex = 10
      end
      object FrenchCanadian1: TMenuItem
        Tag = 28
        Caption = 'French Canadian'
        GroupIndex = 10
      end
      object German2: TMenuItem
        Tag = 29
        Caption = 'German'
        GroupIndex = 10
      end
      object Hungarian2: TMenuItem
        Tag = 30
        Caption = 'Hungarian'
        GroupIndex = 10
      end
      object Italian2: TMenuItem
        Tag = 31
        Caption = 'Italian'
        GroupIndex = 10
      end
      object NorwegianBokmal2: TMenuItem
        Tag = 32
        Caption = 'Norwegian (Bokmal)'
        GroupIndex = 10
      end
      object NorwegianNynorsk2: TMenuItem
        Tag = 33
        Caption = 'Norwegian (Nynorsk)'
        GroupIndex = 10
      end
      object Polish2: TMenuItem
        Tag = 34
        Caption = 'Polish'
        GroupIndex = 10
      end
      object PortugueseBrazilian2: TMenuItem
        Tag = 35
        Caption = 'Portuguese (Brazilian)'
        GroupIndex = 10
      end
      object PortugueseIberian2: TMenuItem
        Tag = 36
        Caption = 'Portuguese (Iberian)'
        GroupIndex = 10
      end
      object Russian2: TMenuItem
        Tag = 37
        Caption = 'Russian'
        GroupIndex = 10
      end
      object Spanish2: TMenuItem
        Tag = 38
        Caption = 'Spanish'
        GroupIndex = 10
      end
      object Swedish2: TMenuItem
        Tag = 39
        Caption = 'Swedish'
        GroupIndex = 10
      end
    end
    object Popup1: TMenuItem
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Cut1: TMenuItem
      Caption = 'Cut'
      ShortCut = 16472
      OnClick = Cut1Click
    end
    object Copy1: TMenuItem
      Caption = 'Copy'
      ShortCut = 16451
      OnClick = Copy1Click
    end
    object Paste1: TMenuItem
      Caption = 'Paste'
      ShortCut = 16470
      OnClick = Paste1Click
    end
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 16449
      OnClick = SelectAll1Click
    end
  end
end